
		Imports Acceso_a_Datos.Datos
		Namespace BO
		Partial Public Class tArea_Cursos
# Region "tCursos"
	private mlistatCursos As New List (Of tCursos)
Public Property ListatCursos As System.Collections.Generic.List(Of tCursos)
Get
dim mtCursos As New tCursos
mlistatCursos =mtCursos.TraerFiltradoListOf("IdAreaCurso",Me.IdAreaCurso)
Return mlistatCursos
End Get
Set
RemoveAllListatCursos()
If Not (Value Is Nothing) Then
Dim otCursos As tCursos
	For Each otCursos in Value
		AddListatCursos(otCursos)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatCursos(newtCursos As tCursos)
	If (mlistatCursos Is Nothing) Then
		mlistatCursos = new System.Collections.Generic.List(Of tCursos)
	End If
	If Not mlistatCursos.Contains(newtCursos) Then
		mlistatCursos.Add(newtCursos)
		newtCursos.tArea_Cursos = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatCursos(oldtCursos As tCursos)
	If (mlistatCursos.Contains(oldtCursos)) Then
		mlistatCursos.Remove(oldtCursos)
		oldtCursos.tArea_Cursos = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatCursos()
	If Not (mlistatCursos Is Nothing)
		Dim tmp_listatCursos As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtCursos As tCursos
		For Each oldtCursos in mlistatCursos
			tmp_listatCursos.Add(oldtCursos)
		Next
	mlistatCursos.Clear()
	For Each oldtCursos in tmp_listatCursos
		oldtCursos = Nothing
	Next
	tmp_listatCursos.Clear()
	End If
End Sub

# End Region


# Region "Lecturas que devuelven listas"
Public Function TraerTodosListOf() As List(Of tArea_Cursos)
            Dim dtDatos As DataTable
            Dim listatArea_Cursos As New List(Of tArea_Cursos)
            Dim param As [String]
            param = (Me.mNombreEntidad + "_SelectAll")
            dtDatos = Me.ServidorDatos.TraerDataTable(param)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtArea_Cursos As New tArea_Cursos
				mtArea_Cursos.IdAreaCurso = CType(dr.Item("IdAreaCurso"),Integer)
				mtArea_Cursos.Traer_objeto()
            	listatArea_Cursos.Add( mtArea_Cursos)
    		Next dr
Return listatArea_Cursos
End Function

Public Function TraerFiltradoListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tArea_Cursos)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatArea_Cursos As New List(Of tArea_Cursos)
            param = (Me.mNombreEntidad + "_Tx")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtArea_Cursos As New tArea_Cursos
				mtArea_Cursos.IdAreaCurso = CType(dr.Item("IdAreaCurso"),Integer)
				mtArea_Cursos.Traer_objeto()
            	listatArea_Cursos.Add( mtArea_Cursos)
    		Next dr
Return listatArea_Cursos
End Function

Public Function TraerFiltradoLikeListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tArea_Cursos)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatArea_Cursos As New List(Of tArea_Cursos)
            param = (Me.mNombreEntidad + "_TxLike")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtArea_Cursos As New tArea_Cursos
				mtArea_Cursos.IdAreaCurso = CType(dr.Item("IdAreaCurso"),Integer)
				mtArea_Cursos.Traer_objeto()
            	listatArea_Cursos.Add( mtArea_Cursos)
    		Next dr
Return listatArea_Cursos
End Function
# End Region

End Class
End Namespace
